Pascal 题目```哪个高手帮忙啊???

来源：百度知道 编辑：UC知道 时间：2024/05/25 13:05:50
从键盘输入20个整型数
求它们的最大值.最小值

program ex;
var i,n,max,min:integer;
begin
max=-32768;
min=32767;{注明，这里的上界和下界最好先设下，以防出错。}
for i:=1 to 20 do
begin
read(n);
if n>max then max:=n;
if n<min then min:=n;
end;
readln;
end.